home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / ShowLastLog.zprx < prev    next >
Text File  |  1995-05-17  |  1KB  |  41 lines
  1. /*
  2.     $VER: ShowLastLog.zprx v0.1 (15-May-95) by Nils Görs
  3.     ARexx-Script for Zodiac's Point.
  4.  
  5.     give you the information about the last netcall.
  6.  
  7.     rexxreqtools.library required !
  8. */
  9.  
  10. LogFile = "Dh0:t/zp.log"          /* Wo befindet sich das Logfile? */
  11.  
  12. NL = '0a'x
  13. NL2= '0a0a'x
  14.  
  15. OPTIONS RESULTS
  16. /* ------ von welchem ZP Port wurde das Script aufgerufen ? ------ */
  17. PARSE ARG zpPort
  18. IF zpPort == "" THEN
  19.    zpPort = "ZPoint"
  20. ADDRESS VALUE zpPort
  21.  
  22. /* öffne alle nötigen libraries - wenn nicht möglich Programmende */
  23. IF ~SHOW('LIBRARIES','rexxreqtools.library') THEN
  24.   IF ~ADDLIB('rexxreqtools.library',0,-30,0) THEN
  25.     EXIT
  26.  
  27. IF OPEN(LogFile.dat,Logfile,"Read") == 0 THEN DO
  28.  say "Fehler! Kann das Logfile:" LogFile "nicht finden."
  29.  EXIT
  30. END
  31. Groesse = SEEK(Logfile.dat,0,"End"); CALL SEEK(LogFile.dat,0,"Begin")
  32. String = READCH(LogFile.dat,Groesse)
  33.  
  34. Position=LASTPOS(NL2,String)
  35.  
  36. String=DELSTR(String,1,Position)
  37.  
  38. CALL CLOSE(LogFile.dat)
  39.   CALL rtezrequest(String,"Danke!","letzter Login","rt_pubscrname="zpPort)
  40. /* EOS */
  41.